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ATJTOMATIC  CARDIAC  PACING  TECHNIOPE  FOR  ELECTROPHYSIOLOGIC  INVESTIGATIONS : 
MEASUREMENT  OF  MYOCARDIAL  EXCITABILITY  IN  THE  DOG  DURING  EXPOSURE  TO  +Gz 


ABSTRACT 


The  oblectlve  of  this  effort  was  to  quantify  changes  In  the 
excitability  of  the  heart  muscle  during  exposure  to  various  G  acceleration 
profiles.  Dogs  were  catheterlzed  with  cardiac  pacing  electrodes  which  were 
Inserted  Into  the  ventricle  of  the  heart.  The  exteriorized  end  of  the 
catheter  was  protected  by  a  cloth  and  tape  collar  allowing  the  animals  to 
reside  In  ordinary  cages  with  experimentation  taking  place  for  at  least  3-4 
weeks. 


A  microcomputer-controlled  pacemaker  was  designed,  built,  and 
programmed  to  pace  the  heart  with  a  basic  rhythm  established  with  periodic 
suprathreshold  pulses  (SI),  and  a  test  stimulus  (S2)  inserted  at  a 
frequency  (typically  every  tenth  beat)  chosen  by  the  investigator.  Other 
parameters  which  can  be  varied  by  the  Investigator  Include  pulse 
amplitudes,  durations  and  S1-S2  delay. 

The  automated  equipment  described,  has  been  used  to  collect 
experimental  data  on  dogs  undergoing  forces  on  the  NAVAIRDFVCEN  animal 
centrifuge.  The  threshold  of  stimulation  levels  are  plotted  as  a  function 
of  -h;  .  We  have  demonstrated  a  system  In  which  an  animal  with  a  chronic 
pacing  catheter  and  a  computer-based  Instrument  have  been  combined  to 
provide  a  useful  model  In  which  cardiac  threshold  of  excitability  changes 
can  be  observed  In  response  to  stressors  such  as  +G^. 


BACKGROUND 

Modern  high-performance  aircraft  are  capable  of  producing  and 
sustaining  complex  accelerative  forces  that  can  alter  the  physiology  and 
exceed  the  tolerance  limits  of  their  human  operators.  Cardiac  rhythm 
anomalies  are  caused  by  accelerative  forces  and  are  aggravated  by  straining 
maneuvers  used  by  aircrew  to  Increase  their  G-tolerance.  These  anomalies 
can  also  be  observed  when  subjects  are  exposed  to  G  loads  on  a  human 
centrifuge  (13).  The  arrhythmias  themselves  may  not  be  particularly 
harmful  when  they  occur  as  single  occasional  events  (premature  ventricular 
contractions  or  PVC's).  However,  a  sequence  of  several  PVC's  (ventricular 
tachycardia  or  VT)  can  be  dangerous  for  the  aircrew  since  they 
significantly  reduce  the  heart's  efficiency  to  pump  blood.  This  results  In 
decreased  flow  of  oxygenated  blood  to  the  brain  which  can  cause  vertigo 
(dizziness),  functional  Incapacitation,  or  syncope  (loss  of  consciousness). 

Arrhythmias  occur  when  the  ventricular  muscle  becomes  Irritable  or 
more  excitable  due  to  various  disease  states  or  physically  stressful 
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conditions  such  as  exposure  to  Increased  G  loads.  An  understanding  of  the 
irritable  response  of  the  ventricular  siuscle  during  exposure  to  G  Is 
necessary  to  explain  the  etiology  of  PVC's  and  VT  under  these  conditions. 

Nunerous  studies  at  the  OSAP  School  of  Aerospace  Medicine  (USAFSAM) 
and  observations  of  records  from  -k;  exposures  on  our  own  Dynamic  Flight 
Simulator  confirm  that  these  rhythm^anomalles  do  Indeed  occur  in 
significant  numbers.  In  a  recent  study  at  DSAFSAM,  544  Individuals  who 
underwent  +G  exposures  on  2,100  different  occasions  showed  PVC's  on  1,073 
separate  episodes  (11)(12).  Figure  1  shows  three  contiguous  strips  taken 
from  a  two  channel,  ambulatory  ERG  recording  while  a  subiect  was  exposed  to 
+G^  on  the  MAVATRDEVCEN  human  centrifuge.  This  recording  shows  seven  PVC's 
during  a  time  span  of  only  18  seconds. 

To  date,  various  mechanisms  for  the  Increased  cardiac  excitability, 
and  thus  the  generation  of  arrhythmias  under  G  loading,  have  been  proposed, 
but  none  have  been  experimentally  confirmed  or  quantified.  Some  of  these 
are:  elevated  heart  rate  due  to  excessive  sympathetic  activity 

( 1) ( 2) ( 10)( 12) , increased  metabolites  (12),  autonomic  Imbalance  due  to 
fluctuations  In  baroreceptor  stimulation  (4)(12)(15),  myocardial  Ischemia 

(2) (3)(10),  cardiac  filling  changes  (2)(3){ 10)( 14) ,  cardiac  displacement 
(2)(3)(4)( 10)( 12) ,  mechanical  stress  on  the  cardiac  muscle'(2)(10)(16),  and 
respiratory  straining  maneuvers  (2)(10)(15)( 16) . 


INTRODUCTION 


The  objectives  of  this  research  are  to  quantify  the  changes  In  the 
excitability  of  the  heart  muscle  during  exposure  to  various  G  profiles  and 
ultimately  to  correlate  these  changes  with  variations  In  other 
physiological  parameters  such  as  those  mentioned  above.  The  changes  In 
heart  muscle  sensitivity  or  irritability  due  to  exposure  to  G  loading  were 
measured  by  a  technique  proven  In  previous  studies  (5)(7)(8).  Invasive 
techniques  were  required  so  animal  models  rather  than  human  volunteers 
were  used  in  this  study.  The  relationship  between  G  loading  and 
ventricular  excitability  was  measured  by  determining  the  minimum  energy 
required  to  stimulate  the  heart  under  different  G  profiles.  This  was 
accomplished  through  the  use  of  standard  pacemaker  electrodes  Implanted  In 
or  on  the  animal's  ventricular  myocardium  and  brought  out  through  the  skin 
(5). 


A  microcomputer-based  cardiac  stimulator  was  designed  In  which 
specific  stimulation  waveforms  could  be  programmed,  and  either  modified 
from  the  computer  keyboard,  or  modified  under  program  control  in  response 
to  physiological  events.  The  ability  to  have  program  control  of  a 
parameter  In  response  to  changes  In  physiological  signals  Is  essential  In 
d3rnamlc  Interactive  experiments  such  as  the  one  In  which  this  equipment  was 
used.  Specifically,  the  experiment  was  conuducted  with  conscious  dogs  on 
an  animal  centrifuge.  Each  trial  entailed  several  hundred  cardiac  cycles 
which  required  an  operator  decision  at  10  beat  Intervals.  Clearly,  with 
heart  rates  In  the  150  beat  per  minute  range,  manual  control  of  pacing 
parameters  by  a  human  operator  would  be  difficult.  This  report  will 
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Figure  1  -  Two  channel  Holter  recording  showing  ventricular  premture 

beats  (VPBs)  recorded  during  acceleration  on  a  hunan  centrifuge 
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describe  the  hardware  and  software  used  In  this  experimental  apparatus  as 
well  as  the  experimental  results. 

A  manual  version  of  the  test  stimulator  used  in  these  studies  was 
tested  in  the  laboratory.  This  experimental  pacemaker  produced  two  sets  of 
stimulating  pulses.  One  set,  (SI),  stimulates  the  heart  at  a  regular 
physiologic  rate  and  the  other,  (S2),  stimulates  the  heart  every  tenth 
interval  to  simulate  a  PVC.  Both  sets  of  stimuli  have  independent  controls 
for  rate,  amplitude,  duration,  and  time  separation  between  the  two  sets  of 
stimuli.  Figure  2  shows  the  timing  relationships  for  these  pulses. 
Threshold  determinations  were  done  using  the  double  pulse  technique.  Here 
the  animal  was  paced  at  normal  physiologic  rates  with  the  SI  stimuli  and 
threshold  determinations  made  by  slowly  increasing  the  amplitude  of  the  S2 
test  pulses  until  premature  responses  just  began  to  occur  on  the  EFG  as 
seen  in  Figure  3.  The  amplitude  of  this  threshold  stimulus  was  taken  as 
the  measure  of  cardiac  excitability. 

The  sensitivity  of  this  technique  for  measuring  changes  in  cardiac 
excitability  was  tested  in  the  laboratory  using  a  dog  preparation  as 
described  above.  The  animal  was  suspended  in  a  canvas  sling  and  a  series 
of  threshold  determinations  were  made  for  different  stimulus  durations  to 
generate  a  stimulus  strength-duration  curve.  This  was  done  twice:  once  as 
a  control  and  a  second  time  after  administration  of  a  common  diuretic  drug 
(furoslmide)  known  to  decrease  cardiac  excitability.  The  curves  thus 
generated  are  shown  in  Figure  4.  These  curves  indicate  that  changes  in 
cardiac  excitability  can  indeed  be  measured  using  the  above  described 
technique.  (The  furoslmide  curve  shows  higher  threshold  stimulus  strength 
indicating  lower  excitability  than  the  control  curve)  (6). 


HARDWARE  SYSTEM  DESCRIPTION 


The  hardware  configuration  of  tht.  microcomputer-based  cardiac 
stimulator  is  shown  in  Figure  5.  The  heart  of  the  apparatus  is  an  8085 
basec  laboratory  microcomputer,  the  IMSAI  PCS-80/30,  which  features  the 
MPU-B,  single  board  microcomputer,  dual  8  inch  floppy  disk  drives  with 
controller  board,  a  keyboard  and  CRT  display.  This  machine  has  the  S-100 
buss  and  additional  plug-in  cards  complete  the  system.  They  are:  IMSAI 
RAM-III-32,  32  K  dynamic  RAM,  Cromemco  D4-7A  I/O  analog-to-digital  and 
dlgltal-to-analog  Interface  and  the  Cromemco  TD-ART  digital  interface.  The 
MPD-B,  is  an  8-blt,  single-board  microcomputer  which  features  a  small 
amount  of' RAM  and  ROM  memory,  the  S-100  Buss  interface,  parallel  and  serial 
I/O  and  three  programmable  16  bit  timers. 

An  Interface  was  designed  to  couple  the  I/O  portion  of  the 
microcomputer  system  to  the  experimental  animal.  The  0  to  2.5  volt 
stimulation  pulses  were  made  available  at  the  output  of  the  D/A  converter 
of  the  microcomputer  system.  The  interface  accomplishes  two  things:  the 
voltage  pulse  output  was  converted  to  a  constant  current  pulse  and  the 
interface  output,  which  connects  directly  to  the  experimental  animal's 
cardiac  tissue,  was  electrically  isolated  from  ground.  This  provides  a 
measure  of  safety  against  extraneous  electrical  currents  being  conducted 
directly  through  the  heart  muscle. 
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Figure  6  Is  a  schematic  drawing  of  the  Interface  circuitry.  An 
Analog  Devices,  Model  284J,  Isolation  amplifier  Is  used  to  provide  an 
Isolated  power  supply  of  +  or  -  8.5  volts  and  to  provide  an  Isolated  output 
channel  to  monitor  either  the  voltage  or  current  at  the  pacing  electrode 
terminals.  Electrical  Isolation  Is  maintained  on  the  Input  side  with  an 
optocoupler.  The  transistor  on  the  output  side  of  the  optocoupler  Is  used 
In  a  mode  In  which  the  light-coupled  signal  Is  the  current  across  the 
reverse-biased  collector-base  junction.  This  mode  has  a  high  degree  of 
linearity,  high  speed,  and  low  thermal  drift  characteristics. 

The  isolated  signal  Is  amplified  by  operational  amplifier  A,  which 
has  a  dc-offset  trimmer,  R7,  to  cancel  out  the  dc  bias  voltage  Introduced 
by  the  optocoupler.  Operational  amplifier  D  Is  a  voltage-to-current 
converter  which  Is  set  up  to  provide  1  mllllamp/volt.  Capacitor  Cl  is 
provided  to  prevent  any  tissue-damaging  flow  of  DC  current,  however,  it 
presents  a  problem  when  monopolar  pulses  are  delivered.  The  capacltor 
eventually  becomes  charged  to  the  maximum  supply  voltage  and  current  flow 
ceases.  The  solution  to  this  problem  Is  to  allow  a  discharging  current 
between  pulses,  by  providing  a  small  offset  with  trimmer  R7. 


SYSTEM  SOFTWARE  DESCRIPTION 


The  software  for  the  programmable  stimulator  can  be  broken  up  Into 
functional  modules  as  shown  In  Figure  7  .  The  software  which  controls  the 
operator  Interface  (the  video  display  terminal  and  keyboard).  Is  written  In 
Fortran  (see  Appendix  Al.  The  first  function  of  the  Fortran  program  Is  to 
call  the  subroutine  TNIT  which  sets  up  and  starts  the  SI  and  S2  timers  and 
defines  the  interrupt  vector.  More  details  on  INIT  are  provided  in 
Appendix  A.  Primarily,  the  Fortran  program  prompts  the  operator  with  a 
series  of  messages  to  the  screen  asking  for  the  various  pulse  parameter 
values.  These  values  are  then  transferred  to  the  data  value  storage  area 
of  the  assembly  language  Interrupt  service  routine  by  a  call  with  multiple 
parameters  to  the  subroutine  called  STPVAL.  STPVAL  Is  explained  In  more 
detail  In  Appendix  A.  The  use  of  Fortran  makes  mathematical  conversions 
very  easy  -  for  Instance  beats  per  minute  Is  the  obvious  parameter  for  the 
operator  to  enter  and  can  easily  be  converted  to  the  proper  number  of  10 
millisecond  Interrupts  for  the  assembly  language  program.  j 

The  other  program  modules  are  written  In  assembly  language,  and  they 
make  up  the  Interrupt  service  routine.  Since  waveform  generation 
essentially  Involves  performing  operations  at  specific  time  Intervals,  a 
means  must  be  established  to  generate  an  accurate  time  base.  In  this  case, 
one  of  the  programmable,  16  bit  timers  on  the  MPU-B  microcomputer  board  Is  | 

used  to  generate  Interrupts  at  10  millisecond  Intervals.  Each  time  an 
Interrupt  Is  generated,  the  Interrupt  service  routine  Is  executed,  and  by 
keeping  track  of  the  number  of  Interrupts,  the  elapsed  time  between  events 
can  be  tabulated.  Then  It  is  a  simple  matter  of  comparing  a  running  total 
of  the  number  of  Interrupts  to  fixed  values  representing  the  waveform  time 
Intervals.  When  the  two  values  are  equal,  a  waveform  event  Is  generated.  | 

For  Instance,  the  heart  rate  Is  determined  by  the  SI  pulses  which  are 
generated  continuously  forming  the  basic  loop  of  the  program. 
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Cardiac  stlimilator  Isolated  Interface  schematic  diagram. 


NADC  87098-60 


OPERATOR  I/O  MODULE  (FORTRAN) 


10  ms.  Interrupts  determlnet^  by 


Stimulation  pulses  to  Port  1  Sync  pulses  to  Port  2 


Figure  7  -  Program  modules 
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As  can  be  seen  In  Figure  7  ,  the  main  time-keeping  and  processing 
module  receives  Input  from  the  analog  Input  EKG  amplifier, and  within  the 
module,  sampling  of  the  EKG  takes  place  at  the  Interrupt  Interval  of  10 
milliseconds,  corresponding  to  a  rate  of  100  samples  per  second.  As  part 
of  the  main  loop  of  the  Interrupt  service  routine,  the  analog  EKG  samples 
are  compared  to  a  threshold  level  during  a  period  after  the  S2  pulse,  and  a 
software  flag  Is  set  If  a  beat  Is  detected  (threshold  Is  exceeded).  In 
this  way,  the  output  waveform  can  be  modified  In  response  to  events 
detected  by  the  ERG  module.  Specifically,  whenever  a  paced  beat  Is 
detected,  the  amplitude  of  the  S2  pulse  Is  decreased  and,  conversely,  when 
an  S2  pulse  falls  to  stimulate  the  heart,  the  amplitude  of  the  next  S2 
pulse  Is  Increased.  Thus,  the  S2  amplitude  Inversely  tracks  the 
excitability  level  of  the  heart. 


METHODS 


The  double-pulse  stimulator  described  above  was  used  to  study  the 
changes  In  heart  muscle  sensitivity  or  irritability  due  to  G  loading. 

Since  Invasive  techniques  were  necessary,  the  mongrel  dog  was  chosen  as  the 
animal  model  for  this  experiment.  With  pacing  electrodes  placed  In  the 
ventrlcuular  muscle  of  the  heart,  the  relationship  between  G  loading  and 
ventricular  excitability  was  measured  by  determining  the  minimum  energy 
required  to  stimulate  the  heart  under  different  G  profiles. 

To  prepare  the  animals  for  this  study,  bipolar  pacing  catheters  were 
Introduced  Into  the  jugular  vein  and  the  tip  was  guided  Into  the  right 
ventricle  of  the  heart  with  the  aid  of  fluoroscopy.  A  technique  was 
developed  for  bringing  the  pacing  electrode  wires  through  the  skin  at  the 
back  of  the  animal's  neck  so  the  animal  Is  completely  unencumbered  and 
remains  instrumented  for  several  months.  As  shown  In  Figure  8,  a  special 
body  sling  was  designed  to  restrain  the  dog  within  a  metal  framework 
mounted  on  the  NADC  animal  centrifuge.  EKG  electrodes  were  placed  above 
and  below  the  dog's  heart  on  the  mid-stemal  line  with  the  reference 
electrode  placed  to  one  side  on  the  lower  portion  of  the  rib  cage.  A 
commercially  available  animal  vest  (Alice  King  Chatham,  Chatsworth,  CA)  was 
used  to  hold  the  electrodes  In  place.  A  battery-operated  EKG  amplifier 
(NED  Associates, Inc. ,  East  Fairfield,  VT)  was  mounted  on  the  centrifuge 
arm,  and  the  amplified  signal  passed  through  the  slip  rings  to  the  computer 
and  recording  equipment.  The  pacing  pulses  were  applied  through  the  slip 
rings  and  connected  to  the  catheter  wires  at  the  back  of  the  dog's  neck. 

The  animal  was  restrained,  but  unanesthetized  during  the  experiment.  A 
pacemaker  rate  was  established  which  would  override  the  dog's  normal  rate. 
Since  no  tranquilizers  or  anesthetics  were  used,  a  rate  of  about  175 
beats/minute  was  required.  Threshold  of  stimulation  for  the  S2  pulse  was 
determined,  then  the  centrifuge  was  brought  smoothly  up  to  the  -fGz  level  of 
interest  and  maintained  until  a  new  stimulation  threshold  was  found,  and 
then  brought  down  to  a  stop  for  a  determination  of  post  +Gz  threshold.  The 
data  recorded  on  the  chart  recorder  and  magnetic  recorder  Included  the  EKG, 
the  pacer  output  pulse  train,  the  *Gz  level  and  the  S2  amplitude  as  an 
Indication  of  myocardial  excitability. 
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Figure  9  shows  a  portion  of  recorded  EK6  which  denonstates  the 
difference  between  nornal  ERG  and  ERG  signal  which  results  when  the  heart 
Is  paced  at  a  rate  which  overldes  the  nornal  rate.  The  S2  pulses  are 
producing  a  prenature  ventricular  contraction  (PVC)  waveform  Indicating 
that  the  S2  amplitude  exceeds  the  threshold  of  excitability  of  the  heart. 

Figure  10  shows  a  strip-chart  recording  with  automatic  threshold 
determination  and  tracking.  During  threshold  deternlnatlon,  the  amplitude 
of  the  S2  stimuli  Increased  or  decreased  with  each  test  Interval  until 
threshold  stimulation  was  accomplished.  A  stable  threshold  of  excitability 
Is  characterized  by  a  series  of  S2  positive  responses  (pacing)  alternating 
with  S2  negative  responses  (non-pacing). 

The  data  strip  from  a  run  to  -t-3G  Is  shown  In  Figure  11.  Notice  that 
before  the  G  profile  Is  applied  the  threshold  of  the  ventricle  Is  being 
tracked  by  alternating  pacing  and  non-pacing  S2  stimuli.  When  the  G  profile 
Is  applied,  the  threshold  of  stimulation  goes  down.  Indicating  an  Increase 
In  cardiac  excitability  until  a  new  threshold  level  Is  found  during  the  G 
plateau.  Following  this,  the  G  profile  Is  removed  and  the  threshold  Is 
tracked  back  to  a  higher  level,  at  or  near  that  determined  before  the  G 
profile  was  applied.  This  procedure  was  repeated  for  different  G  plateau 
levels  with  threshold  measurements  taken  before,  during,  and  after  each 
plateau. 


RESULTS 


Figure  12  shows  the  results  of  two  experiments  conducted  on  different 
days,  using  the  same  dog.  In  both  cases,  there  were  three  runs  to  -fSGz  and 
a  decrease  in  S2  threshold  (Increase  In  myocardial  excitability)  was  seen 
during  the  acceleration  plateau.  After  the  acceleration  plateaus,  the 
excitability  levels  returned  to  values  near  the  base  line  levels.  Although 
this  same  pattern  of  myocardial  excitability  changes  Is  seen  for  each  4Gz 
plateau,  the  base  line  levels  and  the  magnitudes  of  the  changes  can  vary 
greatly. 

Figure  13  shows  results  of  two  other  experiments  on  two  different 
dogs  and  at  three  different  *Gz  plateau  levels.  The  same  pattern  of 
excitability  changes  Is  seen  for  all  three  +Gz  levels  (•f2Gz,  +3Gz,  +4Gz) 
but  the  magnitudes  of  the  excitability  changes  do  not  correlate  with  the 
+Gz  level.  That  Is,  higher  *Gz  plateaus  do  not  necessarily  cause  greater 
excitability  changes.  These  same  observations  are  made  even  clearer  by 
normalizing  each  of  the  runs  to  the  base  line  values  (before  +Gz  plateau) 
as  shown  In  Figure  14. 


DISCUSSION 

Figure  13  Is  a  compilation  of  all  data  showing  mean  threshold  levels 
for  the  base  line  before  the  +Gz  plateau,  the  mean  threshold  during  the  +Gz 
plateau,  and  the  mean  threshold  level  after  the  -fGz  plateau  was  turned  off. 
This  series  of  experiments  clearly  shows  that  threshold  of  stimulation 
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+Gz  Acceleration  Profile 

Animal  D  -  3  experiments  on  10/16/86 


+Gz  Acceleration  Profile 

Animal  0-3  experiments  on  10/^17/86 

Figure  12  -  Experlaental  results  showing  S2  stlsiulatlon  threshold  values 
before,  during,  and  after  exposure  to  +3  Gs  (sane  anlnal  on 
two  different  days). 
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Figure  13  •  Experimental  results  showing  S2  stlmlatlon  threshold  values 
before,  during,  and  after  exposure  to  +2  Gz,  +3  Gz,  and  -fA  Gz 
(two  different  animals). 
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Figure  U  -  Normalized  results  (data  from  Figures  12  and  13  normalized  to 
the  "before"  values). 
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decreases  (oorocardlal  excitability  increases)  when  the  animals  are  exposed 
to  -fGz  and  and  returns  to  base  line  levels  when  the  +Gz  is  removed. 

Although  myocardial  excitability  always  increases  with  +Gz,  there  seems  to 
be  no  clear  relationship  between  the  level  of  +Gz  and  the  magnitude  of  the 
S2  threshold  change. 

Although  an  increase  in  myocardial  excitability  during  exposure  to 
*Gz  is  expected  and  explainable  as  discussed  in  the  introductory  sections 
of  this  report,  the  fact  that  the  degree  of  excitability  change  does  not 
correlate  with  the  level  of  -fGz  exposure  is  an  unexpected  result.  Previous 
work  seems  to  indicate  that  the  rate  of  occurrence  of  PVC's  during  exposure 
to  +Gz  goes  up  with  Increased  G  level  (9).  PVC^s  are  generated  due  to 
Increased  myocardial  excitability  and  therefore  conditions  that  cause 
higher  rates  of  PVC's  would  be  expected  to  cause  greater  increases  in 
myocardial  excitability. 

A  possible  explanation  of  this  apparent  discrepency  is  that  the  range 
of  -fGz  exposure  (+2Gz  -  +AGz)  used  in  these  experiments  may  not  have  been 
great  enough  to  have  caused  measurable  differences  in  excitability 
increases.  Additional  experimentation  using  carotid  flow  probes, 
rheoencephalogram,  doppler  velocimeter,  infrared  plethysmograph,  pressure 
catheters,  etc.  Is  planned  for  the  future  with  a  wider  range  of  -fGz 
exposure. 
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APPENDIX  A;  Program  descriptions,  flow  dlagraas  and  Assembler  listings 


The  Initialization  routine  enables  the  timer  on  the  NPU-F  board  and 
loads  the  timer  with  a  digital  value.  In  addition,  the  Interrupt  system  is 
enabled  and  the  Interrupt  vector  Is  programmed. 

First,  the  timer  must  be  enabled  through  the  control  port  located  at 
a  single  I/O  mapped  address,  F3h.  It  Is  a  wrlte-only  port  and  only  bits  6 
and  7  are  active. 

bit  6  ■  1  system  memory  at  0000  to  007Fh;  ■  D,  onboard  2KR0M 
at  0000  to  007Fh 

bit  7  -  1  system  memory  at  DOOO  to  DFFFh;  »  0,  2XP0M  at  D800 
to  DFFFh  256  byte  RAM  at  DOOO  to  DOFFh  TIMERS  appear 
at  niOO  to  0103h 


The  TIMER 

control 

byte  is  at 

D103 

and  has 

the 

following 

format : 

bit 

7 

6 

5 

4 

3 

2 

1 

0 

SCI 

SCO 

RLl 

RLO 

M2 

Ml 

MO 

BCD 

Select 

(hunter 

Read /Load 

Mode 

In  this  case,  D103h  Is  loaded  with  74h  (01110100b)  which  programs 
counter  1  to  be  loaded  LSB  first,  then  MSB,  and  to  operate  In  mode  2 
(programmable  rate,  pulse  generator)  counting  In  binary. 

Then,  the  location  for  timer  1,  DlOl,  Is  loaded  first  with  the  least 
significant  byte  (LSB),  20h,  and  second  with  the  most  significant  byte 
(MSB),  AEh. 

The  counter  Is  then  loaded  with  4E20h  which  equals  20,000d  and  It 
starts  to  countdown  at  a  2  megahertz  rate.  After  10  milliseconds,  the 
counter  will  generate  an  Interrupt,  RST  7.5,  and  the  counter  will 
automatically  reload  and  start  counting  down  again.  The  result  Is  an 
Interrupt  generated  at  precise,  10  msec  Intervals. 

The' following  assembler  code  appears  In  the  Initialization  routine: 

MVI  A,1BR 

DB  30H 

This  Is  a  special  Instruction  of  the  8085  microprocessor  called  SIM(30h). 
The  accumulator  must  contain  a  control  word  (In  this  case,  IBh)  when  SIM  is 
excecuted.  The  control  word  has  the  following  format: 

Bit:  7  6  5  4  3  2  1  0 

SOD  SDE  XXX  F7.5  MSE  M7.5  M6.5  M5.5 
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IBh  0  0  0  1  1  0  1  I 

This  is  Interpreted  as  follows:  Bits  7  and  6  are  for  serial  communications 
and  are  not  used,  bit  5  is  a  don't  care,  bit  4  resets  the  RST7.5  interupts 
and  the  remaining  bits  enable  the  RST7.S  interrupt.  See  page  3-61  of  Intel 
8080/8085  Assembly  Language  Programming  Manual  for  additional  information. 

When  timer  1  reaches  zero,  which  has  been  programmed  to  occur  at  10 
nsec  intervals,  a  RST7.5  interrupt  occurs.  This  is  a  vectored  Interrupt 
and  the  8085  program  counter  is  aet  to  003Ch.  Therefore,  a  JUMP 
instruction  to  the  interrupt  service  routine,  called  STIM,  must  be  located 
at  memory  location  3Ch.  Ttw  code  to  do  this  and  the  results  in  the 
computer  memory  are  shown  below: 

COOP 


MVI 

A,0C3H; 

MOVE 

C3h  (code  for  JMP)  to  Accumulator 

STA 

3CH; 

STORE 

in  memory  location  3Ch 

LXI 

H,STIM; 

LOAD 

HL  register  pair  with  address  of  STIM 

SHLD 

3DH; 

STORE 

contents  of  HL  register  pair  in  two 

successive  bytes  of  memory  starting  at  3Dh 


MEMORY  LOCATION 


CONTENTS 


0030 

C 

3 

003D 

1  L  1 

1  ^  1 

003E 

I  H  1 

1  H  1 

Code  for  JUMP 
Lower  order  address  bits 
Higher  order  address  bits 
for  program  called  STIM 


In  this  program  it  was  desirable  to  use  a  FORTRAN  program  to  provide 
a  user  Interface  and  perform  some  calculations.  The  main  program  is  the 
interrupt  service  routine  for  interrupts  from  timer  1  and  needs  the  various 
parameters  specified  by  the  user.  Thus,  parameters  must  be  passed  from  the 
FORTRAN  program  to  the  assembly  language  program.  The  method  used  is 
discussed  in  the  FORTRAN-80  Reference  Manual  -  Appendix  C  -  Subprogram 
Linkages. 

The  parameter  actually  passed  is  the  address  of  the  low  byte  of  the 
argument  so  the  parameters  are  always  two  bytes  long.  Parameter  1  is 
passed  in  the  HL  register  pair,  parameter  2  in  register  pair  DE  and 
parameters  3  through  N  in  a  contiguous  block  with  register  pair  6C  pointing 
to  the  low  byte  of  this  block  (low  byte  of  parameter  3).  $AT  is  a  system 
subroutine  for  transferring  parameters  to  a  local  data  area.  Before  it  is 
called,  register  pair  HL  must  point  to  the  local  area;  register  pair  BC 
points  to  the  3rd  parameter  and  the  accumulator  contains  the  number  of 
arguments. 


After  SAT  is  run,  the  variables  PI  through  P8  contain  the  low  byte  of 
the  address  of  the  eight  parameters  which  are  passed  when  the  subroutine 
STPVAL  is  called  from  the  FORTRAN  program.  The  variables  PI  through  P8  are 
correlated  with  the  variables  of  the  assembly  language  programs  as  follows: 
PI  :  AI  P5  :  T2 
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P2  :  A2  P6  :  T3VAL 

P3  ;  TVAL  P7  :  INC 

P4  !  T1  P8  :  THLDST 

The  passed  variables  are  all  integer  values,  which  are  two  bytes  In 

length,  and  which  would  allow  a  naxlmia  positive  value  of  32.767d.  host  of 
the  variables  used  are  only  one  byte  (less  than  2SSd). 

The  variables  in  the  aaseably  language  program  are  updated  with  the 
following  sequence: 

LHLO  PI;  address  of  first  variable  in  H-L  pair, 

MOV  A,M;  value  of  first  variable  into  accumulator, 

STA  Al;  store  in  location  A1  in  assembly  language  data 

area. 

This  is  an  example  where  the  variable  is  one  byte. 

For  a  two  byte  transfer: 


LHLD 

P4; 

load  HL  with  address  of  Tl;  a  2  byte  variable 

MOV 

A,M; 

low  byte  of  Tl  value  into  accumulator, 

STA 

Tl+1; 

store  in  low  byte  storage  space  for  Tl  in 
assembly  language  program. 

INT 

H; 

increase  RL  by  one. 

MOV 

A,M; 

get  high  byte  of  Tl  value  into  accumulator. 

STA 

Tl; 

store  in  high  byte  storage  space  In  assembler 
program. 

The  main  software  routine  Is  the  interrupt  service  routine  called 
STIM  which  is  diagrammed  in  flow  chart  form  in  Figure  A2.  This  flow  chart 
is  made  more  understandable  by  referring  to  the  diagram  in  Figure  Al,  which 
shows  the  signifcance  of  the  various  program  variables  in  determining  pulse 
timing  relationships.  STIM  is  entered  whenever  an  interrupt  is  generated 
by  timer  1  on  the  MPU-B  board.  This  occurs  at  an  interval  of  10 
milliseconds.  Each  time  the  Interrupt  occurs,  the  memory  location 
specified  by  the  label  T  Is  decremented.  If  [Tl  ■  0,  then  there  Is  a 
branch  to  AlOUT  which  is  the  module  which  generates  the  SI  pulse.  If  [T] 
is  greater  than  zero,  SICNT  is  checked  for  zero  value  by  loading  the 
contents  of  this  memory  location  into  A  and  performing  ORH  A.  If  SICNT  is 
zero,  then  a  S2  pulse  must  be  generated  in  the  current  Interval.  Assuming 
SICNT  is  zero,  T  is  compared  to  T3VAL  to  ascertain  when  the  S2  pulse  should 
be  generated.  The  shaded  area  in  Figure  Al,  described  by  NOTE  ]  and 
defined  by  T3VAL>T>5,  indicates  the  period  when  sampling  of  the  EKG  occurs 
during  each  Interrupt  cycle.  The  sample  is  checked  for  negative  value  by 
doing  the  OR-Immediate  instruction  with  a  zero  operand  and  checking  for  a 
one  in  bit  7  of  the  result  in  the  accumulator.  If  the  sampled  value  is 
greater  than  THLDST,  then  a  paced  beat  has  occurred  and  several  things 
result. 


1)  FFh  is  stored  in  SYSJLG. 

2)  A  short,  audible  "beep"  is  generated  on  the  keyboard 
speaker. 

i 
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3)  FFh  Is  put  out  on  part  3  (-2.5  volts)  for  a  period  of 
4  nsec. 

Figure  A3  Is  a  flov  chart  for  the  progran  segeent  which  defines  the 
generation  of  the  S2  pulse.  The  code  for  the  S2  pulse,  labeled  A20UT, 
first  checks  the  contents  of  the  variable  STSFLG  to  deternlne  If  the  last 
S2  pulse  sucessfully  stlmlated  the  heart.  If  It  did,  then  the  current  S2 
aaplltude  (variable  A2)  is  decreaented,  and.  If  It  did  not,  then  A2  Is 
Increnented .  The  value  stored  In  the  variable  INC  determines  the  magnitude 
of  the  change,  and  the  resultant  A2  value  Is  checked  to  see  If  It  Is  within 
the  reange  of  00.  to  7F.  .  If  either  the  upper  or  lower  bound  Is  exceeded, 
the  variable  A2  is  set  to  whichever  bound  was  exceeded,  either  7F.  or  00. 
respectively.  Next,  the  software  flag  STSFLC  Is  reset.  STSFLG  would  have 
been  set  by  the  detection  of  a  paced  beat  In  the  main  routine,  STIM.  The 
rest  of  the  routine  proudces  a  pulse  output  on  Port  1  with  amplitude  A2, 
and  a  duration  determined  by  the  two-byte  variable,  T2.  The  level  on  port 
1  Is  returned  to  zero  at  the  end  of  the  routine.  In  addition,  a  83mc  pulse 
Is  generated  on  port  2  which  has  'f2.5  volt  magnitude  a  d  beginning  0.5 
milliseconds  before  the  S2  pulse  and  extends  2  milliseconds  after. 

The  SI  pulse  Is  generated  In  a  very  similar  manner  to  the  S2  pulse 
with  the  exception  that  the  amplitude  Is  not  variable,  but' remains  fixed  at 
a  level  which  has  been  set  by  the  operator.  The  variable  ,A1,  In  the 
assembly  language  module  contains  a  fixed  amplitude  for  the  SI  pulse. 


The  time  delay  described  above,  as  well  as  the  time  delays  for  the  SI 
and  S2  pulses,  is  generated  using  the  subroutine,  LOOP.  In  this 
subroutine,  a  programmed  LOOP  Is  formed  In  which  the  BC  register  pair  Is 
decremented  and  checked  for  zero,  continually,  until  BC  Is  equalled  to  zero 
when  a  return  from  the  subroutine  Is  executed.  The  Instructions  shown 
below,  which  decrement  BC  and  check  for  zero,  take  about  8  microseconds  to 
execute. 


LOOP:  OCX 

B 

6 

X 

1/3  - 

2 

NOV 

A,P 

4 

X 

1/3  - 

1 

1/3 

ORA 

C 

4 

X 

1/3  - 

1 

1/3 

JNZ 

LOOP 

10 

X 

1/3  - 

3 

1/3 

TOTAL  8  msec 


Therefore: 


Td  (time  delay  In  microseconds)  •  8  X  [value  In  BC  register 


pair 


For  example.  If  a  1  msec  delay  Is  desired: 

1  msec  -  1000  msec  •  8  X  fX[ 

X  -  1000/8  -  I25d  •  7Dh 


The  subroutine  BEEP  causes  the  speaker  on  the  keyboard  to  emit  a  short 
"beep*'.  In  the  program,  this  coincides  with  detection  of  a  paced  beat,  and 
It  Is  a  useful  auditory  feedback  for  the  operator.  This  function, 
described  on  page  REY-21  of  IKB-1,  Intelligent  Keyboard  Users  Guide,  Is 
performed  by  sending  a  command  string  to  port  2  with  bit  0  set  to  zero. 
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fSTIMl 
T«T  -  1 

T«  0?  ~(ye8)->— [AlODT] 

-(no) - < - SICNT  -  0? 

T  -  T3VAL  ->~(yea)-fA20UT] 

— (ye8)-< - T>T3VAL 

T  <  5  — > — (yes) - 

Sample  Port  1 

— (ye8)-< - Accumulator  <  0? 

— (no) — < - Accumulator  >  THDST 

SYSFLG  <— FFh 

« 

Call  BEEP 

« 

Neg.  Pulse  to  Port  3 
« 

(RSlCKTl  - < - 

Set  SI  -  10 

4  msec,  time  delay 

- > - r  RETURN  1 

« 

A2  out  on  Port  3 
(LEAVE] 


1.  entry  point 

2.  decrement  var.  T 

3.  [AlODT]  makes  SI  pulses 

4.  check  for  10  Si's 

5.  [A20UT]  makes  S2  pulses 

6.  (yes)  during  S1-S2  Interval 
7.S2-S1  Int.  almost  over 

8.  sample  ECG 

9.  check  negative  value 

10.  paced  beat? 

11.  all  I's  to  SYSFLG 

12.  beep  speaker 

13.  marker  on  Port  3  output 

14. 

15.  reset  SI  counter 

16.  Port  3  neg.  pulse  expanded 

17. 

18.  updates  port3  with  S2  mag. 

19. 


Figure  A2:  Flow  chart  of  the  basic  loop  of  the  interrrupt  sevlce 
routine. 
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fA20tJT] 

SYSFLG  -  0?  ->-(ye8)->— (A2INC1 
:  ; 


A2-A2  -  INC 

A2  >  0? - >— (yes)- 

A2  -  0 

ISTRDEC] - < - 

STORE  A2  VALUE 
A2  OUT  ON  PORT  3 

- > - (RSTSYSI 

« 

SYSFLO  -  0 


A2-A2  +  INC 

* 

* 

A2  >  7Fh?->-(ye8)-- 
A2  -  7Fh 

rSTRINC] - < - 

STORE  A2  VALUE 
A2  OUT  ON  PORT  3 


« 

7Fh  out  on  Port  2 
0.5  mllllsec.  delay 


A2  value  out  Port  1 
Software  delay, S2  pulsewldth 


OOh  out  on  Port  1 
Software  delay 
OOh  (Ov)  out  on  Port  2 
(LEAVE] 


1. label  Is  A20UT 

2.  did  previous  S2 
stimulate  the  heart? 

3.  change  S2  appropriately 
4  bounds  exceeded 

5.  0  or  2.5v 

6. 

7. update  stored  value 
F.S2  pulse  level  on  Port  3 

9. 

10.  reset  SYSFLG 

11.  2.5v  out  on  Port  2 

12.  start  sync  pulse 

13.  start  S2  pulse 

I 4. location  T2  and  T2+1 

15.  O.Ov  out,  end  of  S2 

16.  2  mllllsec. 

17.  end  sync  pulse 


Figure  A3:  Flow  diagram  for  the  assembly  language  program  (A20UT)  for 
generation  of  the  S2  pulse.  The  flow  diagram  for  the 
assembly  language  program,  AlOUT  Is  very  similar  to  steps 
11  through  17  of  this  figure. 
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PAGE  1  -  STIM.POR 


MAIM  PCER  PROGRAM 
ALL  VARIABLES  ARE  INTEGERS 

CALL  TO  IMIT  INITIALIZES  THE  ASSEMBLY  LAMGAUGE  PROGRAM 
(SETS  UP  THE  TIMERS,  SETS  UP  THE  INTERRUPT,  ENABLES  INT. } 

INTEGER  A1,A2,TVAL,T1,T2,T3VAL,THLDST,RR,RATE,S2DELY,PWTH1,PWTH2 
CALL  INIT 

WRITE  PROMPTS  TO  SCTEEN  AMD  READ  AMPLITUDE  VALUES 
(0-127  CORRESPONDS  TO  00  TO  7FH  AND  00  T  TO  2.5  VOLTS) 

WRITE  (3,10) 

READ  (3,50)A1 
WRITE  (3,12) 

READ  (3,50)A2 

READ  THE  PULSEWIDTH  IN  MICTOSECONDS 
DELAY  LOOP  IS  8  MICROCEC.,  THEREFORE,  DIV.  BY  8 
WRITE  (3,22) 

READ  (3,50)PWTH1 
Ti-pwTHl/8 

SAME  AS  ABOVE  FOR  S2  PULSE 
WRITE  (3,24) 

READ  (3,50)PWTH2 
T2*PWTH2/8 

THE  VARIABLES  TVAL  AND  T3VAL  REPRESENT  THE  SI  TO  SI 
PERIOD  AND  THE  S2  TO  NEXT  SI  PERIOD  RESPECTIVELY. 

THE  NUMBERS  LOADED  MUST  BE  THE  NUMBER  OF  10  MSEC.  INTERRUPTS 
REQUIRED  TO  GENERATE  THE  PERIOD. 

RATE  INPUT  BEATS  PER  MINUTE 

TVAL( INTERRUPTS/Sl  PULSE) =(6000  ( INTERRUPTS/MIN . ) J / [ RATE  (SI  PULSES/MIN)] 
WRITE  (3,20) 

READ  (3, 50) RATE 
TVAL=6000/RATE 

RR  IS  THE  TIME  IN  MILLISECS  BETWEEN  PULSES 

RR=TVAL*10 
WRITE(3,40)RR 

C  S20BLY  IS  THE  TIME  IN  MILLISECS  BETWEEN  S2  AND  PREVIOUS  SI 
C  THE  S2  PULSE  IS  GENERATED  WHEN  T  IS  DECREMENTED  UNTIL  T=T3VAL, 

C  SO  THE  MO.  OF  INTERRUPTS  IN  S2DELY  (S2DELY  /  10) 

C 
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C 

C  PAGE  2 

C 

C 

C  MUST  BE  SUBTRACTED  FROM  TVAL  (MAX.  VALUE  OF  T  IS  TVAL) 
C  TO  GET  THE  PROPER  VALUE  OP  T3VAL 
READ(3,50)S2DELy 
T3VAL»TVAL-S2DELY/10 

C  READ  THE  INCREMENT  FOR  S2  PULSES.  FOR  INSTANCE, 

C  WHEN  INC^l,  THE  CHANGE  IN  THE  VOLTAGE  OUTPUT 
C  ON  PORT  1  WOULD  BE  2.5/127  OR  .02  VOLTS 
WRITE  (3,60_ 

READ(3,50)INC 

C  READ  THE  LEVEL  FOR  DETECTION.  ONLY  POSITIVE  VALUES,  SO 
C  RANGE  IS  0-127,  CORRESPONDING  TO  00  TO  7PH  OR  0  TO  2.5 
WRITE(3,70) 

READ(3,50)THLOST 

CALL  STP VAL ( A1 , A2 , TVAL , T1 , T2 , T3 VAL , I NC, THLDST ) 

10  FORMAT('  A1  AMPLITUDE  (0-125)=') 

12  FORMAT ('  A2  AMPLITUDE  (0-125)=') 

20  FORMATC  PULSE  RATE  ( PULSES/MINUTE )  =  ' ) 

22  FORMATC  SI  PULSEWIDTH  (MICROSECONDS  )  =  ' ) 

24  FORMAT ( '  S2  PULSEWIDTH  ( MICROSECONDS )=' ) 

30  FORMATC  PULSE  DELAY  (MSEC)  =  ') 

40  PORMAT('  RR  INTERVAL  (MSEC)=',I8) 

50  FORMAT(I8) 

60  FORMATC  S2  AMPLITUDE  INCREMENT  (0-10)  =  ') 

70  FORMATC  LEVEL  FOR  DETECTION  (0-125)=') 

PAUSE 
GO  TO  1 
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TITLE  PACE  S1-S2  PACING  ROUTINE 
EXT  $AT 

ENTRY  INIT,STPVAL,STIM 
;THE  INITIALIZATION  ROUTINE  TAXES  CARE  OF 
; SETTING  UP  TIMER  1  ON  THE  MPU-B  BOARD, 

; (PROGRAMMABLE  RATE,  PULSE  GENERATOR, 

; BINARY  COUNT) 

;IT  ENABLES  THE  7.5  INTERRUPT  USING  THE 
; SPECIAL  8085  SIM  INSTRUCTION 
;AND  A  JUMP  INSTRUCTION  IS  INSERTED  AT 
; MEMORY  LOCATION  3CH  (RST  7.5) 

INIT:  MVI  A,40H  ;EMABLE  TIMER  1 


MVI 

A,40H 

; ENABLE  TIMER  1 

OUT 

0F3H 

MVI 

A,74H 

;LSB  FIRST,  MODE  2 

STA 

0D103H 

* 

# 

MVI 

A,20H 

;LSB  FIRST 

STA 

ODIOIH 

MVI 

A,4EH 

;THEM  MSB 

STA 

ODIOIH 

MVI 

A,1BH 

; ENABLE  7.5  INTERRUPT 

OB 

30H 

MVI 

A,0C3H 

;SET  UP  THE  JUMP 

STA 

3CH 

;C3  INTO  10030 

LXI 

H,STIM 

;LOAD  HL  REG.  PAIR  WI 
;ADDRESS  OF  "STIM” 

SHLO 

El 

RET 

3DH 

;IH1  TO  t003D) 

;(L]  TO  [003E] 

; STORE  PARAMETER  VALUES 


STPVAL : 

DI 

SHLO 

PI 

;SAVE  PARAMETER  1 

XCHG 

SHLO 

P2 

;SAVE  PARAMETER  2 

MVI 

A,  6 

; NUMBER  OF  PARAMETERS  LEFT 

LXI 

H,P3 

; POINTER  TO  LOCAL  AREA 

CALL 

SAT 

; FORTRAN  TRANSFER  ROUTINE 

PI: 

DW 

; PARAMETER  ADDRESSES 

P2: 

DW 

P3: 

DW 

P4: 

DW 

P5: 

DW 

P6: 

DW 

P7: 

DW 

P8: 

DW 

;LOAO  NEW  VALUES  INTO  THE  VARIABLES 
; DEFINED  IN  THE  ASSEMBLY  PROGRAM 
;GET  THE  ADDRESS  FROM  THE  TABLE 
; DEFINED  WITH  PI:  TO  P8:  NOTE: 

;MOST  VALUES  ARE  ONE  BYTE 
;BUT  SOME  HAVE  TWO  BYTES 
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LHLD 

PI 

;GET  FIRST  ADDRESS 

NOV 

A,M 

;GET  FIRST  VALUE 

STA 

A1 

; STORE  AS  A1 

LHLD 

P2 

MOV 

A,M 

; STORE  PARAMETER 

STA 

A2 

;2  AS  A2 

LHLD 

P3 

MOV 

A,M 

; STORE  PARAMETER 

STA 

TVAL 

;3  AS  TVAL 

LHLD 

P4 

;ADDR.  OP  P4  INTO  (HL] 

MOV 

A,M 

;LOW  BYTE  OF  2-ByTE  VAR. 

STA 

Tl+1 

; STORE  IN  LOW  BYTE  OP  T1 

I  MX 

H 

; INCREMENT  HL 

MOV 

A,M 

;HIGH  BYTE  TO  [A] 

STA 

T1 

; STORE  IN  LOC.  T1 

LHLD 

P5 

; STORE  FIFTH  AS  T2 

MOV 

A,M 

STA 

T2+1 

INX 

H 

MOV 

A,M 

STA 

T2 

LHLD 

P6 

; STORE  PARAMETER  6  AS  T3VAL 

MOV 

A,M 

STA 

T3VAL 

LHLD 

P7 

; STORE  PARAMETER  7  AS  INC 

MOV 

A,M 

STA 

INC 

LHLD 

P8 

; STORE  PARM.  8  AS  THLDST 

MOV 

A,M 

STA 

THLDST 

El 

RET 

; BEGINNING  OF  THE  INTERRUPT  ROUTINE 
; ENTERED  WHENEVER  TIMER  1  TIMES  OUT 

STIM:  DI  ; DISABLE  INTERRUPT 

; STORE  REGISTER  VALUES  ON  STACK 
PUSH  PSW 

PUSH  B 

PUSH  D 

PUSH  H 

LXI  H,T  ;LOAD  HL  WITH  T  ADDRESS 

.DCR  M  ;T«T>1 

JZ  AlOUT  ;IF  T«0,  THEN  JUMP  TO  AlOUT 

;IF  SICNT  NE  ZERO,  THEM  JUMP  TO  RETURN 
LDA  SICMT 

ORA  A 

JNZ  RETURN 

; COMPARE  T3VAL  AMD  T 

;(HL  REG.  STILL  CONTAINS  ADDRESS  OF  T) 
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;IF  T  »T3VAL,  THEN  JUMP  TO  A200T 
;1F  T  GT  T3VAL,  THEM  JUMP  RETURN 
LDA  T3VAL 

CMP  M 

JZ  A20UT 

JC  RETURN 

;THIS  CODE  EXECUTED  WHEN  T  IS  LT  T3VAL 
;(S2  HAS  OCCURRED).  PURPOSE  IS  TO  SAMPLE  THE 


UNTIL  JUST 

BEFORE 

NEXT  SI 

MVI 

A,  5 

;  ALMOST  TIME  FOR  NEXT  SI? 

CMP 

M 

; COMPARE  T  TO  5 

JMC 

RSICNT 

;IP  T  LT  5  JUMP 

TO  RSICNT 

IN 

PORTl 

; SAMPLE  THE  EKG 

OR  I 

OOH 

/UPDATE  FLAGS 

JM 

RETURN 

/CHECK  FOR  NEG. 

VALUE 

;THE  POSITIVE  SAMPLE  IS  COMPARED  TO  A  THRESHOLD 
;IF  GT,  SySFLG  IS  SET  TO  FFH 
; KEYBOARD  SPEAKER  IS  BEEPED,  AMD 
;-2.5V  OUTPUT  ON  PORT  3 
;JUMP  OUT  TO  RSICNT 


LXI 

H,THLDST 

'/H-L  GETS  THLDST  ADDRESS 

CMP 

M 

/IF  EKG  SAMPLE  LT  THLDST, 

JC 

RETURN 

/THEM  JUMP  TO  RETURN 

MVI 

A, OFFH 

/SET  SYSFLG-FFH 

STA 

SYSFLG 

CALL 

BEEP 

/BEEP  THE  KEYBOARD  SPEAKER 

MVI 

A, OFFH 

OUT 

PORT  3 

/-2.5  V  OUT  ON  PORT  3 

JMP 

RSICNT 

/EXIT  TO  RSICNT 

;A20UT  GENERATES  THE  S2  PULSE 
;S2  AMPLITUDE  IS  DETERMINED  BY 
; RESULTS  OF  PREVIOUS  S2  REFLECTED 
;BY  THE  CONTENTS  OF  SYSFLG 
;IF  SYSFLG=00,THEN  A2*A2+INC 
;IF  SYSFLG=FFH,  THEN  A2=A2-IHC 


A20UT :  LDA 

SYSFLG 

/GET  VALUE  (00  OR  FF) 

CPI 

OOH 

JZ 

A2INC 

/IF  SYSFLG-00,  JUMP  A2INC 

; perform  A2- 

=A2-INC 

LXI 

H,INC 

/GET  ADDRESS  OF  INC  IN  H-L 

LDA 

A2 

/GET  A2  VALUE 

SUB 

M 

/A2«A2-IMC 

/IF  A2  GOBS 

NEG.,  THEM 

SET  A2s0 

JP 

STRDEC 

/IF  A2  GT  ZERO,  JUMP  STRDEC 

MVI 

A,  OOH 

/PUT  00  IN  ACCUMULATOR 

STRDEC:  STA 

A2 

/STORE  ACCUM.  IN  A2 

OUT 

PORT3 

/NEW  A2  VALUE  OUT  ON  PORT  3 

JMP 

RSTSYS 

/JUMP  TO  RESET  PART 
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;  PERFORMS  A2«A24^INC 

A2INC:  LXI  H,INC  ;GET  INC  ADDRESS  IN  H-L 

LDA  A2 


ADD  H  ;A2«A2+1MC 

;IF  THE  RESULT  OF  THE  INCREMENT  EXCEEDS  7FH 
;THEN  7FH  SHOULD  BE  STORED  IN  A2 


r  -----  -  - 

JP 

STRING 

/A2  BETWEEN  00  AND  7F,  JUMP 

MVI 

A,7FH 

/7F  INTO  ACCUMULATOR 

STRING: 

STA 

A2 

/STORE  ACCUM.  IN  A2 

OUT 

PORT  3 

/A2  VALUE  OUT  ON  PORT  3 

/SYSFLG 

IS  RESET  BEFORE 

ACTUAL  S2  GENERATED 

RSTSYS : 

MVI 

STA 

A,00H 

SYSFLG 

/RESET  SYSFLAG 

;NEXT  SECTION  OF  CODE  GENERATES  A  2.5V 
;OUTPUT  (PORT2)  FOR  A  PERIOD  OF  TIME 
; DETERMINED  BY:  0040H  X  LOOP  TIME 
;0040H«64D,  LOOPTIME-8MICROSEC. 

; THEREFORE  THE  LOOP  SUBROUTINE 
; GENERATES  A  DELAY  OF  512  MICROSEC. 

MVI  A, 7FH 

OUT  PORT2 

LXI  B,0040H 

CALL  LOOP 

;THIS  IS  THE  CODE  WHICH  DETERMINES 
;THE  DURATION  OF  THE  S2  PULSE. 

;THIS  CODE  LOADS  THE  TWO-BYTE 
; VALUE  FROM  T2  INTO  THE  B-C  PAIR 


LDA 

T2 

/LOAD 

B  WITH  T2 

MSB 

MOV 

B,A 

LDA 

T2+1 

/LOAD 

C  WITH  T2 

LSB 

MOV 

C,A 

LDA 

A2 

/FORM 

S2  PULSE 

OUT 

PORTl 

CALL 

LOOP 

/TIME 

DELAY 

;ON  RETURN  FROM  LOOP,  THE  ACCUMULATOR 
; CONTAINS  ZERO  AND  THIS  IS  OUTPUT 
;TO  PORTl  TO  FINISH  OFF  THE  S2  PULSE 

OUT  PORTl  I 

; ANOTHER  TIME  DELAY  IS  GENERATED 
/WHICH  DETERMINES  HOW  MUCH  LONGER  THE 
; PULSE  ON  PORT  2  EXTENDS  BEYOND 
;THE  S.2  PULSE 

LXI  B,0100H 

CALL  LOOP  I 

MVI  A,00H 

OUT  PORT2 

JMP  LEAVE  /EXIT  THE  PROGRAM 

/THIS  SUBROUTINE  IS  A  DELAY  LOOP 
/WHERE  EACH  ITERATION  TAKES  8 

/MICROSEC.  AND  THE  NUM.  OF  ITER-  i 

/ATIONS  IS  IN  BC  INITIALLY 

LOOP:  DCX  B  /DECREMENT  BC  PAIR 

/B  AND  C  ARE  OR-ED  TOGETHER  AND 


I 
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;THE  RESULT  IS  ZERO  ONLY  WHEN  BOTH 
;B  AND  C  ARE  ZERO 

MOV  A, B 

ORA  C 

JNZ  LOOP 

RET 

;THIS  SUBROUTINE  BEEPS  THE  SPEAKER  OP  THE 
;KByBOARD.  THIS  IS  DOME  BY  WRITING 
;A  CONTROL  WORD  TO  PORT  2 
;WITH  THE  LS  BIT«0 
BEEP :  PUSH  PSW 

MVI  A,00H 

OUT  02H 

MVI  A, OFPH 

OUT  02H 

MVI  A,00H 

OUT  02H 

POP  PSW 

RET 

;THIS  CODE  GENERATES  THE  SI  PULSE 
;1T  IS  SIMILAR  TO  THE  A20UT  CODE 
; WHICH  GENERATES  THE  S2  PULSE. 

AlOUT:  MVI  A,7FH  ; 2 . 5V  OUT  ON  PORT  2 

OUT  PORT2 

LXI  B,0040H  ; DELAY  FOR  512  MICROSEC. 

CALL  LOOP 

LDA  TVAL  /RESET  THE  VAR.  T  TO  TVAL 

STA  T 

LDA  T1  /LOAD  BC  WITH  Tl,  MSB  FIRST 

MOV  B,A 

LDA  Tl+1 

MOV  C,A 

LDA  A1 

OUT  PORTl  /START  THE  SI  PULSE 

CALL  LOOP 

OUT  PORTl  /FINISH  SI  PULSE 

LXI  H,S1CNT  /DECREMENT  SlCNT 

DCR  M 

LXI  B,0100H  /SET  UP  DELAY 

CALL  LOOP 

MVI  A,00H 

OUT  PORT2  /ENDS  AFTER  SI 

JMP  LEAVE 

/SICMT  IS  RESET  AMD  A  TIME  DELAY  OF 
/ABOUT  4  MILLISEC.  IS  GENERATED 
/THE  PURPOSE  IS  TO  ALLOW  TIME 
/FOR  THE  -2.5  PULSE  GENERATED  WHEN 
/A  SYSTOLE  IS  DETECTED 
RSICMT:  LDA  SICVAL  /RESET  SlCNT 

STA  SlCNT 

LXI  B,01F4H 

CALL  LOOP 

/THE  CURRENT  A2  LEVEL  IS  PUT  OUT  ON 


;PORT  3  AS  AM  INDICATION  OF  THE 
; LEVEL  REQUIRED  FOR  STIMULATION 
;BACH  TIME  A  SYSTOLE  IS  DETECTED 
;A  >2.5V  PULSE  IS  PUT  OUT  ON  PORT  3 


RETURN : 

LDA 

A2 

OUT 

PORT  3 

LEAVE: 

POP 

H 

POP 

0 

POP 

B 

POP 

PSW 

El 

RET 

SYSFLG: 

OB 

OOH 

;SYSTOLB?YES»FPH,NO»OOH 

INC: 

DB 

5 

; INCREMENT  OF  SI  AMPLITUDE 

THLDST: 

DB 

3FH 

;THRESHOLD  SBT,0  TO  7FH 

SICNT: 

DB 

OAH 

;S1  COUNT,  VARIABLE 

SICVAL: 

DB 

OAH 

;S1  COUNT  VALUE,  10 

T: 

DB 

32H 

;TIME,  VARIABLE 

TVAL: 

OB 

32 

;TIME  VALUE  (RATE)H 

Tl: 

DW 

7DH 

;S1  DURATION 

T2: 

DW 

7DH 

;S2  DURATION 

Al: 

DB 

3FH 

;S1  AMPLITUDE 

A2: 

OB 

7FH 

;S2  DURATION 

A2SET: 

DB 

3PH 

T3VAL: 

DB 

19H 

/INPUTS  OUTPUTS 

PORTl 

EQU 

19H 

;EKG  PACER 

PORT  2 

EQU 

lAH 

;S2  LEVEL  SYNC  PULSE 

PORT  3 

EQU 

IBH 

;  A2  LEVEL 

PORT  4 

EQU 

ICH 

;  A2  SET  LBV 

PORTS 

EQU 

lOH 

PORTS 

EQU 

lEH 

PORT? 

EQU 

IFH 
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